unit Original;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TOriginalView = class(TForm)
  private
  public
    procedure  WMCommand(var Message: TWMCommand); message WM_COMMAND;  
  end;

var
  OriginalView: TOriginalView;

implementation

{$R *.dfm}

{ TOriginalView }

procedure TOriginalView.WMCommand(var Message: TWMCommand);
begin
  if Message.NotifyCode = BN_CLICKED  then
  begin
    ShowMessage('click button');
    //if FindControl(Message.Ctl) = Btnx_1 then showmessage('click the button');
  end;


  inherited;
end;

end.
